home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / white.arc / MVPDKFIX.4TH < prev    next >
Encoding:
Text File  |  1986-11-07  |  1.4 KB  |  55 lines
  1. \ <PAGEW> clear video utility                         25Dec83RSW
  2.         FORTH DEFINITIONS DECIMAL
  3.  
  4. ( <PAGEW> -- SETS 80 COLUMN B&W MODE FOR COLOR GRAPHICS ADPTR )
  5.  
  6. : <PAGEW>  2 0 0 0 16 INTCALL DROP ;
  7.  
  8.    FIND <PAGEW> 'PAGE !         ( update init video vector )
  9.  
  10. : BEEP  7 EMIT ;  \ alert operator utility
  11.  
  12.  
  13.  
  14.  
  15.  
  16.                         -->
  17. \ <T&SCALC> -- corrected for two-sided problem        26Dec83RSW
  18.            FORTH DEFINITIONS HEX
  19. 8 CONSTANT 5DSDD  10 CONSTANT 8DSDD \ maximum sectors/track side
  20. : <T&SCALC>  ( logical-sector --- )
  21.     DRIVE @ 0F AND DRIVE !      \ clear any side 1 select
  22.     SPT /MOD TRACK !            \ compute desired track
  23.     DENSITY @ 1 = IF            \ 5.25" DSDD ?
  24.       5DSDD /MOD IF             \  yes - on other side ?
  25.         100 DRIVE +! THEN       \        yes - set side 1
  26.     ELSE DENSITY @ 4 = IF       \  no - 8" DSDD ?
  27.       8DSDD /MOD IF             \        yes - other side?
  28.         100 DRIVE +! THEN       \                yes - set it
  29.     THEN THEN
  30.     1+ SEC ! ;                  \ set physical sector number
  31.  
  32.                         DECIMAL -->
  33. \ fix two-sided disk access problem                   25Dec83RSW
  34.    DECIMAL
  35.  
  36.  FIND <T&SCALC> 'T&SCALC !
  37.  ' <T&SCALC> NFA FENCE !
  38.  FREEZE
  39.  SAVE-FORTH
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.        25Dec83RSW
  50.    DECIMAL
  51.  
  52.  FIND <T&SCALC> 'T&SCALC !
  53.  ' <T&SCALC> NFA FENCE !
  54.  FREEZE
  55.  SAVE-